Voit tehdä muunnelman ennätyksestä
type muint64 = ennätys
tapauksen totuusarvo
true: (i64: int64);
väärä: (lo32, hi32: kardinaali);
loppu;
Nyt voit vain käyttää kardinaaleja täyttämään uint64: n allekirjoittamattomilla tiedoilla.
Toinen vaihtoehto olisi käyttää tällaista koodia:
const lähesmaxint64 = 800000045000000 dollaria;
var muint64: int64;
alkaa
muint64: = melkein maksint64;
muint64: = muint64 shl 1;
loppuun
|
Ilman kääntäjän tukea sinulla ei ole paljon vaihtoehtoja.
Oletan, että haluat välittää arvon toiminnolle jossakin ulkoisessa DLL: ssä. Sinun on ilmoitettava parametri allekirjoitetuksi 64-bittiseksi kokonaisluvuksi Int64. Sitten voit vain syöttää allekirjoitetun arvon, jolla on sama bittikuvio kuin halutulla allekirjoittamattomalla arvolla. Rakenna itsellesi pieni muunnostyökalu kääntäjällä, joka tukee allekirjoittamattomia 64-bittisiä kokonaislukuja.
|
Perinteisesti Brolandin toteutukset kärsivät yhteentoimivuusongelmista, koska kohdealustalla ei ollut suurinta allekirjoittamatonta tukea. Muistan, että käytin LongInt-arvoja DWORDin sijaan ja odotin ongelmia Turbo Pascal for Windows -ohjelmiston varhaisista päivistä lähtien. Sitten oli kardinaali onnellisuus, mutta ei, D4 esitteli suurimman kokonaisluvun Int64 vain allekirjoitetussa muodossa. Uudelleen.
Joten ainoa vaihtoehto on luottaa allekirjoitettuun perustyyppiin Int64 ja rukoilla ... odota, ei, käytä vain Int64Rec-tyyppilastaa suorittaaksesi aritmeettisen vähiten ja merkittävimmän osan erikseen.
Takaisin jatkuvaan ilmoitukseen:
vakio
foo = 8000004200000001 dollaria; // tämä toimii, koska heksadesimaalimerkinnät eivät ole luonteeltaan allekirjoitettuja
// ilmoitetusta symbolista foo tulee kuitenkin allekirjoitettu Int64-arvo
// yrittää käyttää desimaalilukua johtaa virheeseen "Kokonaisluvun vakio liian suuri"
// katso lisätietoja todellisten vakioiden aiheesta D7-ohjeista
menettely TForm1.FormCreate (lähettäjä: TObject);
alkaa
// vain tarkistaa
Kuvateksti: = IntToHex (foo, SizeOf (Int64) * 2);
loppu;
Valitettavasti toinen kiertotapa on kääntäjän vaihtaminen. Free Pascal pitää allekirjoitetut ja allekirjoittamattomat tyypit aina synkronoituna.
Tämä katkelma kokoaa ja tuottaa oikean tuloksen Borland Delphi -versiossa 15.0 (alias Delphi 7).
|
Vastauksesi
StackExchange.ifUsing ("editor", function () {
StackExchange.using ("externalEditor", function () {
StackExchange.using ("katkelmat", function () {
StackExchange.snippets.init ();
});
});
}, "koodinpätkät");
StackExchange.ready (function () {
var channelOptions = {
tunnisteet: "" .split (""),
id: "1"
};
initTagRenderer ("". split (""), "" .split (""), channelOptions);
StackExchange.using ("externalEditor", function () {
// Sinun on käynnistettävä editori katkelmien jälkeen, jos katkelmat ovat käytössä
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using ("katkelmat", function () {
createEditor ();
});
}
muu {
createEditor ();
}
});
funktio createEditor () {
StackExchange.prepareEditor ({
useStacksEditor: false,
heartbeatType: 'vastaus',
autoActivateHeartbeat: epätosi,
convertImagesToLinks: true,
noModals: totta,
showLowRepImageUploadWarning: tosi,
maineToPostImages: 10,
bindNavPrevention: tosi,
postfix: "",
imageUploader: {
brandingHtml: "Palvelun tarjoaa \ u003ca href = \" https: //imgur.com/ \ "\ u003e \ u003csvg class = \" svg-icon \ "width = \" 50 \ "height = \" 18 \ "viewBox = \ "0 0 50 18 \" fill = \ "none" xmlns = \ "http: //www.w3.org/2000/svg \" \ u003e \ u003cpath d = \ "M46.1709 9.17788C46.1709 8.26454 46.2665 7.94324 47.1084 7.58816C47.4091 7.46349 47.7169 7.36433 48.0099 7.26993C48.9099 6.97997 49.672 6.73443 49.672 5.93063C49.672 5.22043 48.9832 4.61182 48.1414 4.61182C47.4335 4.61182 46.7256 4.7506 4.916 43.1481 6.59048V11.9512C43.1481 13.2535 43.6264 13.8962 44.6595 13.8962C45.6924 13.8962 46.1709 13.2535 46.1709 11.9512V9.17788Z \ "/ \ u003e \ u003cpath d = \" M32.492 14.44.44 14.44 144 144 144 144 044 144 044 144 044 144 044 144 044 144 044 144 044 144 044 144 044 144 0 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 144 141 141 144 14 14 14 14 14 14 14 14 14 14 41.5985 12.6954 41.5985 10.1419V6.59049C41.5985 5.28821 41.1394 4.66232 40.1061 4.66232C39.0732 4.66232 38.5948 5.28821 38.5948 6.59049V9.60062C38.5948 10.8521 38.2696 11.5455 37.0451 11.5455C35 521 35.4954 9.60062V6.59049C35.4954 5.28821 35.0173 4.66232 34.0034 4.66232C32.9703 4.66232 32.492 5.28821 32.492 6.59049V10.1419Z \ "/ \ u003e \ u003cpath fill-rule = \" evenodd \ "clip-rule = = \ "M25.6622 17.6335C27.8049 17.6335 29.3739 16.9402 30.2537 15.6379C30.8468 14.7755 30.9615 13.5579 30.9615 11.9512V6.59049C30.9615 5.28821 30.4833 4.66231 29.4502 4.66231C28.9950 4 419 4 269 4 269 4 269 4 4 492 4 4 492 4 4 492 4 4 492 435 4 435 4 432 435 4 435 4 462 435 4 435 4 434 4 9 495 .1369 4.56087 21.0134 6.57349 21.0134 9.27932C21.0134 11.9852 23.003 13.913 25.3754 13.913C26.5612 13.913 27.4607 13.4902 28.1109 12.6616C28.1109 12.7229 28.1161 12.7799 28.121 12.8346C4.1.1 212.21 212.21 312 212 213 241 282 301 15.2321 24.1352 14.9821 23.5661 14.7787C23.176 14.6393 22.8472 14.5218 22.5437 14.5218C21.7977 14.5218 21.2429 15.0123 21.2429 15.6887C21.2429 16.7375 22.9072 17.633525.6622 17.6335ZM24.1317 9.27932C24.1317 7.94324 24.9928 7.09766 26.1024 7.09766C27.2119 7.09766 28.0918 7.94324 28.0918 9.27932C28.0918 10.6321 27.2311 11.5116 26.1024 11.5116C24.973 11.13 = 31.1 M16.8045 11.9512C16.8045 13.2535 17.2637 13.8962 18.2965 13.8962C19.3298 13.8962 19.8079 13.2535 19.8079 11.9512V8.12928C19.8079 5.82936 18.4879 4.62866 16.4027 4.62866C15.1594 4.62866 14.279 4.613 8,57809 4,89931 7,9466 5.5079C7.58314 4,9328 7,10506 4,66232 6,51203 4.66232C5.47873 4,66232 5,00066 5,28821 5,00066 6.59049V11.9512C5.00066 13,2535 5,47873 13,8962 6,51203 13.8962C7.54479 13,8962 8,0232 13,2535 8,0232 11.9512V8.90741C8.0232 7,58817 8,44431 6,91179 9,53458 6.91179C10. 5104 6.91179 10.893 7.58817 10.893 8.94108V11.9512C10.893 13.2535 11.3711 13.8962 12.4044 13.8962C13.4375 13.8962 13.9157 13.2535 13.9157 11.9512V8.90741C13.9157 7.58817 14.3365 6.91179 1 5.4269 6.91179C16.4027 6.91179 16.8045 7.58817 16.8045 8.94108V11.9512Z \ "/ \ u003e \ u003cpath d = \" M3.31675 6.59049C3.31675 5.28821 2.83866 4.66232 1.82471 4.66232C0.791758 4.6623213133535 0.791758 13.8962 1.82471 13.8962C2.85798 13.8962 3.31675 13.2535 3.31675 11.9512V6.59049Z \ "/ \ u003e \ u003cpath d = \" M1.87209 0.400291C0.843612 0.400291 0 1.1159 0 1.988677 3.7677 3.7234 1.98861C3.7234 1.1159 2.90056 0.400291 1.87209 0.400291Z \ "fill = \" # 1BB76E \ "/ \ u003e \ u003c / svg \ u003e \ u003c / a \ u003e",
contentPolicyHtml: "Käyttäjän käyttöoikeudet lisensoitu \ u003ca href = \" https: //stackoverflow.com/help/licensing \ "\ u003ecc by-sa \ u003c / a \ u003e \ u003ca href = \" https://stackoverflow.com / legal / content-policy \ "\ u003e (sisältökäytäntö) \ u003c / a \ u003e",
allowUrls: totta
},
onDemand: totta,
discardSelector: ".discard-answer"
, välittömästiShowMarkdownHelp: true, enableTables: true, enableSnippets: true
});
}
});
Kiitos vastauksestasi Stack Overflow -ohjelmaan!
Muista vastata kysymykseen. Anna yksityiskohdat ja jaa tutkimuksesi!
Mutta vältä…
Pyydä apua, selvennystä tai vastaamista muihin vastauksiin.
Lausuntojen tekeminen mielipiteen perusteella; varmuuskopioi ne viitteillä tai henkilökohtaisella kokemuksella.
Jos haluat lisätietoja, katso vinkit hyvien vastausten kirjoittamiseen.
Luonnos tallennettu
Luonnos hylätty
Rekisteröidy tai kirjaudu sisään
StackExchange.ready (function () {
StackExchange.helpers.onClickDraftSave ('# login-link');
});
Rekisteröidy Googleen
Rekisteröidy Facebookin kautta
Rekisteröidy sähköpostilla ja salasanalla
Lähetä
Lähetä vieras
Nimi
Sähköposti
Pakollinen, mutta ei koskaan näytetty
StackExchange.ready (
funktio () {
StackExchange.openid.initPostLogin ('. New-post-login', 'https% 3a% 2f% 2fstackoverflow.com% 2fquestions% 2f6378107% 2fhow-to-define-an-signeeraton-64-bittinen kokonaisluku-sisään-delphi7% 23uusi vastaus ',' kysymyssivu ');
}
);
Lähetä vieras
Nimi
Sähköposti
Pakollinen, mutta ei koskaan näytetty
Lähetä vastauksesi
Hylkää
Napsauttamalla "Lähetä vastauksesi" hyväksyt käyttöehdot, tietosuojakäytännön ja evästekäytännön
Eikö vastausta etsit? Selaa muita kysymyksiä, jotka on merkitty tunnisteella delphi uint64, tai kysy oma kysymyksesi.